home *** CD-ROM | disk | FTP | other *** search
/ Bubka 15 / Bubka 15.iso / html / puzzle / 05.dcr / 00004_kaisi.ls < prev    next >
Encoding:
Text File  |  2002-07-20  |  519 b   |  19 lines
  1. on exitFrame me
  2.   global withlist, plocz
  3.   repeat with i = 51 to 80
  4.     set the locH of sprite i to random(684) + 58
  5.     set the locV of sprite i to random(510) + 45
  6.     if (the locH of sprite i < 196) and (the locV of sprite i < 146) then
  7.       set the locH of sprite i to random(546) + 196
  8.       set the locV of sprite i to random(409) + 146
  9.     end if
  10.     sprite(i).locZ = i - 80
  11.   end repeat
  12.   withlist = []
  13.   repeat with i = 1 to 30
  14.     setAt(withlist, i, 0)
  15.   end repeat
  16.   plocz = 170
  17.   sprite(2).locZ = -300
  18. end
  19.